home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n12.arc / SAMPLE.PRG < prev    next >
Text File  |  1991-05-30  |  720b  |  29 lines
  1.  
  2. * SAMPLE.PRG
  3. * Sample program for resetting the screen colors
  4. * and displaying a custom copyright notice
  5.  
  6. * Set up environment
  7. CLEAR ALL
  8. SET SCOREBOARD  off
  9. SET ESCAPE      on
  10. SET CLOCK       off
  11. SET COLOR OF BOX    TO R/BG    && Red on Cyan
  12. SET COLOR OF NORMAL TO GR+/B   && Yellow on Blue
  13.  
  14. * Define copyright window
  15. DEFINE WINDOW copyright FROM 8,10 TO 14,70
  16.  
  17. * Display window and copyright notice inside
  18. ACTIVATE WINDOW copyright
  19.    @ 1,21 SAY "Sample Application"
  20.    @ 3,13 SAY "Copyright (c) XYZ Corporation 1991"
  21.    delay = INKEY(5)            && Delay for five seconds
  22.    RELEASE delay
  23. DEACTIVATE WINDOW copyright
  24. RELEASE WINDOW copyright
  25. *
  26. * Remainder of Main Procedure Code
  27. *
  28. QUIT
  29.